home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 001 / pibt3sp1.arc / GLOBTYPE.PAS < prev    next >
Pascal/Delphi Source File  |  1985-09-11  |  780b  |  28 lines
  1.                         (* Global Declarations *)
  2. CONST
  3.  
  4.                    (* 8086/8088 hardware flags *)
  5.  
  6.    Carry_Flag     = 1;
  7.    Parity_Flag    = 4;
  8.    Aux_Carry_Flag = 16;
  9.    Zero_Flag      = 64;
  10.    Sign_Flag      = 128;
  11.  
  12. TYPE
  13.  
  14.    AnyStr   = STRING[255]  (* Matches any string for parameter passing *);
  15.  
  16.    ShortStr = STRING[30]   (* Short string *);
  17.  
  18.    KeyStr   = STRING[65]   (* Function key string *);
  19.  
  20.    FileStr  = STRING[65]   (* File name string *);
  21.  
  22.    Regpack  = RECORD       (* 8086/8088 registers                      *)
  23.                  CASE INTEGER OF
  24.                     1: ( Ax, Bx, Cx, Dx, Bp, Si, Di, Ds, Es, Flags : INTEGER );
  25.                     2: ( Al, Ah, Bl, Bh, Cl, Ch, Dl, Dh            : BYTE    );
  26.               END;
  27.  
  28.